home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / crmcols.lha / CRMcols.s < prev    next >
Encoding:
Text File  |  1980-01-01  |  449 b   |  36 lines
  1.  
  2.     section    ddp,code
  3.  
  4.     ; Written by Shagratt/LSD
  5.     ; decrunch with colours for crunchmaina
  6.  
  7.     Lea    C0(pc),a0
  8.     Lea    $c0,a1
  9.     move.l    a1,$84            ; trap #1
  10.     
  11.     move.l    (a0)+,(a1)+    
  12.     move.l    (a0)+,(a1)+    
  13.     move.l    (a0)+,(a1)+    
  14.     move.l    (a0)+,(a1)+    
  15.  
  16.     lea    go(pc),a0
  17.  
  18. x1:    cmp.w    #$7e10,(a0)+
  19.     bne.s    x1
  20.     
  21.     move.w    #$4e41,-2(a0)
  22.  
  23. x2:    cmp.w    #$7e10,(a0)+
  24.     bne.s    x2
  25.     
  26.     move.w    #$4e41,-2(a0)
  27.     bra    go+32
  28.  
  29. C0:    move.w    d7,$dff180
  30.     moveq    #$10,d7
  31.     rte
  32.     
  33. go:    incbin    "dh0:boo/demo.exe"
  34.  
  35.  
  36.